home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aap.d64 / proc.copyscreen < prev    next >
Text File  |  2007-02-28  |  330b  |  14 lines
  1. 9000 //
  2. 9010 PROC COPYSCREEN CLOSED
  3. 9020   DIM LINE$ OF 40
  4. 9030   USE GRAPHICS
  5. 9040   GRAPHICSCREEN(0); CLEARSCREEN
  6. 9050   OPEN FILE 99,"DS:",READ
  7. 9060   FOR ROW#:=1 TO 25 DO
  8. 9070     CURSOR ROW#,1
  9. 9080     INPUT FILE 99: LINE$
  10. 9090     PLOTTEXT(1,200-ROW#*8,LINE$)
  11. 9100   ENDFOR ROW#
  12. 9110   CLOSE FILE 99
  13. 9120 ENDPROC COPYSCREEN
  14.